﻿Imports System.IO
Namespace My
    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
            If Not Directory.Exists(System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\WSI") Then
                Me.MinimumSplashScreenDisplayTime = 6000 'If first run
            Else
                Me.MinimumSplashScreenDisplayTime = 1000 'If not first run
            End If

            Return (MyBase.OnInitialize(commandLineArgs))
        End Function
    End Class


End Namespace

